home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / twars.arc / TEAMEDIT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-28  |  2.3 KB  |  86 lines
  1. PROGRAM tw2001;
  2.  
  3.  
  4. TYPE
  5.  
  6.      teamrec  = RECORD
  7.                name                 : string[41];
  8.                captain              : string[41];
  9.                datemade             : string[8];
  10.                password             : string[8];
  11.                rank                 : real;
  12.                kills                : integer;
  13.              END;
  14.  
  15.  
  16. VAR
  17.    eep,
  18.     tn : integer;
  19.   team : file of teamrec;
  20.  teamt : teamrec;
  21.  ended : boolean;
  22.  numbr : string[8];
  23. choice : char;
  24.  
  25.  
  26. BEGIN
  27.   eep := 0;
  28.   assign(team,'twteam.dat');
  29.   reset(team);
  30.   ended := false;
  31.   WHILE (NOT ended) DO
  32.     begin
  33.       writeln('1 to 50 or Q to quit');
  34.       write('--- Which team to edit? ');
  35.       readln(numbr);
  36.       if ((numbr='Q') or (numbr='q') or (numbr='')) then ended := true;
  37.       VAL(numbr,tn,eep);
  38.       if (tn>0) and (tn<51) then
  39.       begin
  40.         seek(team,tn);
  41.         read(team,teamt);
  42.         writeln;
  43.         writeln('<A> Team Name        : ',teamt.name);
  44.         writeln('<B> Team Captain     : ',teamt.captain);
  45.         writeln('<C> Date of creation : ',teamt.datemade);
  46.         writeln('<D> Password         : ',teamt.password);
  47.         writeln('<E> Rank (!Used)     : ',teamt.rank);
  48.         writeln('<F> Kills (Medals)   : ',teamt.kills);
  49.         writeln;
  50.         writeln('Q to quit');
  51.         write('Modify    : ');
  52.         readln(choice);
  53.         case choice of
  54.         'A','a' : begin
  55.                 write('Enter new Team name: ');
  56.                 readln(teamt.name);
  57.               end;
  58.         'B','b' : begin
  59.                 write('Enter new Team Captain Name: ');
  60.                 readln(teamt.captain);
  61.               end;
  62.         'C','c' : begin
  63.                 write('Enter new Creation Date: ');
  64.                 readln(teamt.datemade);
  65.               end;
  66.         'D','d' : begin
  67.                 write('Enter new Password: ');
  68.                 readln(teamt.password);
  69.               end;
  70.         'E','e' : begin
  71.                 write('Enter new Rank: ');
  72.                 readln(teamt.rank);
  73.               end;
  74.         'F','f' : begin
  75.                 write('Enter new Kill amount: ');
  76.                 readln(teamt.kills);
  77.               end;
  78.         'Q','q' : ended := false;
  79.         end;
  80.         seek(team,tn);
  81.         write(team,teamt);
  82.       end;
  83.     end;
  84.   CLOSE(team);
  85. END.
  86.